home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 199
/
199.d81
/
b.action demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
299b
|
10 lines
3 print chr$(8):print chr$(142)
5 print "[147]":poke 214,13:poke 211,15:sys 58732:print "loading. . ."
6 poke 53280,11:poke 53281,6
7 poke 808,239
10 print "poke 43,1:poke 44,64:poke 16384,0:new"
20 dv=peek(186):if dv<8 then dv=8
30 print "load "chr$(34)"act chrs demo"chr$(34)","dv""
40 print "run"
50 poke 631,13:poke 632,13:poke 633,13:poke 198,3